home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Hyper / H / HyperExtras.sit / HyperExtras / HyperExtras.rsrc / TEXT_3011_putObjectInfoText.txt < prev    next >
Encoding:
Text File  |  1994-03-23  |  998 b   |  29 lines
  1. global PathToObjectsList, Infos
  2.   if Infos is not empty then
  3.     if PathToObjectsList is empty then
  4.     put procPath() into path
  5.     put "Objects" after last word of path
  6.     if there is a file path then
  7.         put HyperExtrasObjects into PathToObjectsList
  8.       else
  9.         answer "Create a new file List or find an old one?" with "New" or "Find" or "Cancel"
  10.         if it is "Cancel" then exit to hypercard
  11.         if it is "Find" then
  12.           answer file "Please pick objects list file"
  13.           if it is not empty and the result is not cancel then
  14.             put it into PathToObjectsList
  15.           end if
  16.         else
  17.           ask file "Please choose a location for the list file"
  18.           if it is not empty and the result is not cancel then
  19.             put it into PathToObjectsList
  20.           end if
  21.         end if
  22.       end if
  23.     end if
  24.     open file PathToObjectsList
  25.     write Infos to file PathToObjectsList
  26.     close file PathToObjectsList
  27.   else
  28.     answer "No Data!"
  29.   end if